home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aaf.d64 / chain-saw print (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  792b  |  28 lines
  1. 10 PRINTCHR$(14)
  2. 20 REM**READS SEQ FILE AND PRINTS TO PRINTER**
  3. 30 REM BY "[211]COTT [194]RUNS & [212]IM [194]ROWN"
  4. 40 REM "([195]) [194]&[194] [211]OFTWARE 1984"
  5. 45 PRINT"[147]  [171][192][192]   [194][160]&[160][194] [211][197][209][213][197][206][212][201][193][204][160][210][197][193][196][197][210]   [192][192][179]"
  6. 50 PRINT"  [198][201][204][197] [212][207] [210][197][193][196]":INPUTA$
  7. 60 PRINT"[211]END TO [208]RINTER (*[217]/[206])"
  8. 70 GETF$:IFF$=""THEN70
  9. 80 IFF$="N"THENP=0:GOTO100
  10. 90 P=1
  11. 100 OPEN15,8,15
  12. 110 OPEN8,8,8,A$+",S,R":SS=ST:GOSUB160
  13. 120 CLOSE4:OPEN4,4,7
  14. 130 GET#8,B$:SS=ST:IFSS>0 THEN 170
  15. 140 PRINTB$;:IFP=0THEN130
  16. 150 PRINT#4,B$;:GOTO130
  17. 160 IFSS=0THENRETURN
  18. 170 IF SS=64 THENPRINT: PRINT"[197]ND OF FILE":GOTO210
  19. 180 PRINT"[201]/[207] [197]RROR"
  20. 190 INPUT#15,A,D$,D,E
  21. 200 PRINTA,D$
  22. 210 CLOSE8:CLOSE15
  23. 220 PRINT"[193]NOTHER [198]ILE (*[217]/[206])"
  24. 230 GETC$:IFC$=""THEN230
  25. 240 IFC$="N" THEN SYS64738
  26. 250 A$="":B$="":C$=""
  27. 260 GOTO50
  28.